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FIGURE 7 



Option Explicit 

V/////////////////^ 
7/ Type Declarations 

v////yy/////////////////////^ 
7/ Constant Declarations 

Const ciFrmHeight As Integer = 5900 ' // Form height 
Const ciFrm Width As Integer « 9600 ' // Form width 

7////////////////////^^ 
7/ Variable Declarations 

Dim iCountFound As Integer 7/ No of series found 

'iiiuiiifiitiitiiiitiitiiifiiitiitHiifiiuiiiiiuittiiunfimtiiuuttifi 

7/ Prototypes 

Y/////////////^ 

7/ Function Declarations 

Private Sub Form_Load() 

1 // Initialization 

Call P.LoadForm 
End Sub 
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lifilliiilliilllfUiililililUlfliilliiUllifllffl/illlffflH 
7/ 

7/ Synopsis : PJLoadForm 
7/ 

Y/ Name : Private Sub P_LoadFormO 

7/ 

7/ Description : Initialization of the parameters in the form 
7/ 

7/ Input : None 

7/ 

7/ Return : None 

7/ 

7/////////////////////^^ 
Private Sub P_LoadFormO 

7/ Label initialization 

lbLFirstRow. Caption = "" 

IbJFirstValue.Caption = 

IblSecondRow.Caption = 

IblSecondVaiue.Caption = 

lblThirdRow.Caption = ,<M 

lblThirdValue.Caption = 

7 / Parameters initialization 
'giErrCode « RC_SUCCESS 
'gsErrMsg = " !! 
End Sub 
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Private Sub crndOK_C!ickO 

Call PJnrstUpdate 
End Sub 

7/ 

7/ Synopsis : PJ^irsrUpdate 
'// 

7/ Name ; Private Sub P_FirscUpdate() 
7/ 

7/ Description : Update in the first form 
7/ 

7/ Input : None 

7/ 

7/ Return : None 
7/ 

7/////////^ 

Private Sub P_FirstUpdate() 

Screen.MousePointer = vbHourglass 

'glErrCode = FindNaSeries 

Screen.MousePointer = vbDefault 

Call FindNoSerics 
End Sub 

Private Sub cmdCanceLClickO 

Unload Me 

Exic Sub 
End Sub 

Private Sub Form_Unioad(Cancel As Integer) 

' // Clean up the form 

Call PJJnloadForm 
End Sub 
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lliJ/IliltlttlltUIIi/flilllllllllllllllllilllillllM 
7/ 

7/ Synopsis : PJJnloadFbrm 

7/ 

7/ Name : Private Sub P_UnIoadForm() 

7/ 

7/ Description ; Release the resource which occupied by the parameters 
7/ in the form 

7/ 

7/ Input : None 

7/ 

7/ Return : None 

7/ 

7///////////////////^^ 

Private Sub P_UnIoadForm() 

End Sub 

7/////////////////^^^ 
7/ 

7/ Synopsis : FindNoSeries 

7/ 

7/ Name ; FindNoSeriesO As Long 
7/ 

7/ Description : Function to update Uex file and stock closing price 
7/ 

7/ Input : N/A 

7/ 

7/ Return : FindNoSeries RC_SUCCESS Success 

7/ RC 3RROR Error 

7/ 

7////////^ 

Public Function FindNoSeriesO As Long 
Dim gsPath As String 

Dim gsCFFiie As String 
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Dim gsErrMsg As String 

Dim sExist As String 

Dim takcFile As String 

Dim giCERleNo As Integer 

Dim bCloseFile As Boolean 

Dim sNextLn As Siring 

Dim asNumberFound(800) As String 

Dim sFileName As String 

"FindNoSeries = RC.ERROR 

bCloseFile = True 

'gsErrMsg = 

gsPath = App-Path 

'// Name of file is SortRecord 

gsCEFile = gsPath & T & "SortRecord" & T 

sExist = DirCgsCEFile) 

sFileName = tttFileName.Text & tt .txt 1( 

If sExist = sFileName Then 

bCloseFile = False 
End If 

If bCloseFile Then 

7/ ,1 noi found. Update process not proceeded." 

gsErrMsg = "SortRecord not found. Process stops; 1 

MsgBox (gsErrMsg) 

'FindNoSeries = RC _ERROR 

Exit Function 
End If 

giCEFileNo = FreeFile 

takeFile = gsCEFile & sExist 

Open takeFiie For Input As #giCEF11eNo 



Dim ILnNurn As Long 
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ILnNum = 0 

Line Input #giCEFileNo, sNextLn 
Do Until UCase(Trim{sNcxtLn)) = M : 



7/ Validation 

If EOF(giCEFileNo) Then 

7/ "Unexpected end of file." 

gsErrMsg = "Unexpected end of file" 

MsgBox (gsErrMsg) 

TmdNoSeries = RCJRROR 

Exit Function 
End If 

If Not IsNumeric(sNextLn) Then 
7/ "Non-numeric input " 

gsErrMsg = "Non-numeric input - & "Row - & ILnNum + 1 & V 

MsgBox (gsErrMsg) 
TindNoSeries = RC_ERROR 

Exit Function 
End If 

If lLnNumo OThen 

If v^asNuiribcrFoundOLaNom - D) < Va«sNextLn) Then ^ 
gsErrMsg = "The input numbers are not sor*d.(at row - & ILnNum + 1 & .) 
MsgBox (gsErrMsg) 
TindNoSeries = RC_ERROR 
Exit Function 
End If 
End If 

asNumberFound(lLnNum) = sNextLn 



DoEvents 

Line Input #giCEFUeNo, sNextLn 
ILnNum = ILnNum + 1 
Loop 
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If Not EOF(giCEFileNo) Then 
7/ "Unexpected end of file" 
gsErrMsg = "Unexpected end of file M 
MsgBox (gsErrMsg) 
' FindNoSeries = RC^ERROR 
Exit Function 

End If 

Close #gtCEFileNo 

Dim IPrimaryNo As String 

Dim lSecondaryNo As String 

Dim lSecond As Siring 

Dim ITotalNo As Long 

Dim iOuterLoop As Integer 

Dim ilnnerLoop As Integer 

Dim bFound As Boolean 

Dim bNotFound As Boolean 

Dim IMagicNo As String 

Dim IT0IN0 As String 

Dim cIMagicOne As String 

Dim clMagicTwo As String 

Dim clTolOne As String 

DimclToiTwo As String 

Dim asNumberOutput(200) As Long 

Dim iCountOutput As Integer 

Dim iFiieNum As Integer 

DimputFile As String 

'bCioseFile = True 

7/ Name of output file is "Result" 

'gsPath = App.Path 

7/ Name of file is SortRccord 

'gsCEFile = gsPath & "V & "Result" & "V* 
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•sExist = Dir(gsCEFilc) 
lfsExist = 'Tryl.wt H Then 
* bCloseFile = False 
'End If 

Tf bCloseFile Then 

7/ "not found. Update process not proceeded." 
' gsErrMsg = "Result not found. Process stops." 
' MsgBox (gsErrMsg) 

'FindNoSeries = RCJERROR 
' Exit Function 
'End If 

7/ Open file for writing result 
iFileNum = FreeFile 

putFile =: App.Path & V & "Result" & ^ & txtFileName.Text & '\ 
Open putFile For Append As #iFi!eNum 

7/ Set initial value 

iCountFound = 0 

clMagicOne = Vai(txiDiffl.Text) 

clMagicTwo « Val(txtDiff2.Text) 

clTolOne = Val(cxtTollText) 

clTolTwo = Val(txtTol2Text) 

bFound = False 

bNotFound « False 

iCountOutput = 0 

IMagicNo = clMagicOne 

lTotaINo = ILnNum 

For lOuterLoop = 0 To (ITotalNo - 1) 

IPrimaryNo = asNumberFound(iOuterLoop) 

'// Set all captions 

lblFirstValue.Caption = IPrimaryNo 
IblFirstRow.Capiion - iOuterLoop + 1 
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IblSecondValue.Caption = 
IblSecondRow.Caption = n " 
IblThirdValue.Caption = 
IbiThirdRow.Caption = 
V/ Reset variables in innerloop 

bFound = False 

bNocFound = False 

LMagicNo - clMagicOne 

ITolNo b clTolOne 
7/ set innerloop begin value 
ilnnerLoop = iOuterLoop + 1 
7/ do until end of list or partem found or not found 
Do Until bFound Or bNotFound Or (ilnnerLoop > ITotalNo - 1) 

ISecondaryNo - asNumberFound(ilnnerLoop) 

If (Val(lPrimaryNo) - Val(lSecondaryNo)) >= (Val(lMagicNo) - Val(lTolNo)) And , 
(Val(lPrimaryNo) - ValflSecondaryNo)) <= (Val(lMagicNo) + Val(lTolNo)) Then 
If IMagicNo = cIMagicTwo Then 

IblThirdValue.Caption = ISecondaryNo 

lblThirdRow.Caption = ilnnerLoop + 1 

bFound = True 

TindNoSeries = RC„SUCCESS 
Write #iFileNum, IPrimaryNo & " & " & ISecond & _ 
" & ,f & ISecondaryNo 

Write #iFi!eNum, IPrimaryNo & " A n & ISecond & H & " & ISecondaryNo 

'((IPrimaryNo - 18 + ISecond + ISecondaryNo + 28) / 3) 
iCountFound = iCountFound + 1 
Else 

IblSecondValue.Caption = ISecondaryNo 
IblSecondRow.Caption = ilnnerLoop + 1 
JSccond = ISecondaryNo 
IMagicNo - cLMagicTwo 
ITolNo = clTolTwo 
End If 

Elself (Val(lSecondaryNo) - Val(lPrimaryNo)) > Vai(lMagicNo) Then 
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bNoiFound = True 
End If 

ilnnerLoop = ilnnerLoop + 1 
Loop 
Next 

'// Close file 
Close #iFileNum 

If bFound = False Then 

'FindNoSeries = RC^NOT^FOUND 
End If 

If iCouncFound o 0 Then 
IblTrueFalse.Capdon = "True" 

MsgBox (iCountFound & " specific series number are found and save in M & ULFileName.Text & 
".mil") 
Else 

lblTrueFalse>Caption = "False" 

MsgBox ("The specific series number is not found!!!!") 
End If 



End Function 



